home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / gfx / misc / RDTextures.lha / RDTextures / palette.gc < prev    next >
Text File  |  1996-09-01  |  938b  |  43 lines
  1. G4C
  2.  
  3. ;new dodgy gui thing
  4.  
  5. WinBig 80 80 420 150 "PalGen"
  6. WinType 11110001
  7.  
  8. xONLOAD
  9. setvar cliarg "-t 0 0 0 0 -t 255 255 255 255"
  10. setvar palfile "test.pal"
  11. setvar palppmfile "pal.ppm"
  12. setvar palilbmfile "pal.ilbm"
  13. setvar pgmfile "test.pgm"
  14. setvar ppmfile "test.ppm"
  15. setvar ilbmfile "test.ilbm"
  16. setstack 10000
  17. GuiOpen palette.gc
  18.  
  19. xONCLOSE
  20. guiquit palette.gc
  21.  
  22. TEXT 10 12 100 15 "Crap palette manipulation" 30  NOBOX
  23.  
  24. xTEXTIN 70 30 340 15 "cli arg" cliarg "-t 0 0 0 0 -t 255 255 255 255" 200
  25.  
  26. xBUTTON 70 50 120 15 "Generate Palette"
  27. CLI 'palgen $cliarg'
  28.  
  29. xBUTTON 70 70 120 15 "Show Palette"
  30. CLI 'ppmtoilbm -24if $palppmfile >$palilbmfile'
  31. RUN 'multiview $palilbmfile'
  32.  
  33. xBUTTON 70 90 120 15 "Generate Color PPM"
  34. CLI 'cpgm -i $pgmfile -o $ppmfile -p $palfile'
  35. CLI 'ppmtoilbm -24if $ppmfile >$ilbmfile'
  36. RUN 'multiview $ilbmfile'
  37.  
  38. xTEXTIN 70 110 120 15 "PGM file" pgmfile "test.pgm" 200
  39.  
  40. xTEXTIN 70 130 120 15 "PAL file" palfile "test.pal" 200
  41.  
  42.  
  43.